Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False Application.CommandBars("Ply").Enabled = False ThisWorkbook.Sheets("welcome").Visible = True For Each ws In ThisWorkboo

Private Sub CommandButton1_Click()
Dim x As String
x = TextBox1.Value
If x <> "0915532" Then
MsgBox "Invalid Password"
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If
Dim C As Integer
For C = 0 To 500
Me.Height = 500 - C - 150
Me.Width = 500 - C
Next
End
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Enter Password", vbCritical
End If

End Sub
Private Sub UserForm_Activate()
Me.Top = 50
Me.Left = 50
Dim C As Integer
For C = 0 To 500
Me.Height = C - 150
Me.Width = C
Next
End Sub

Private Sub UserForm_Initialize()Application.ScreenUpdating = False Application.EnableEvents = False Application.AskToUpdateLinks = False Application.DisplayAlerts = False ActiveWindow

Private Sub CommandButton1_Click()Sheets("ramfish").Unprotect Password:=""RowNumber = TextBox1.ValueIf TextBox1.Value = "" ThenMsgBox "ÔãÇÑå ÓØÑãÔÎÕ äíÓÊ"Sheets("ramfish").Protect Password:=""Exit Sub

Sub close1()
Application.CommandBars("Ply").Enabled = True
End Sub

copy data sheet mabda to sheet maghsad dar row 3 column 2 blank not blank LastCount = Sheets("sheet maghsad").Cells(Rows.Count, 2).End(xlUp).RowSheets("sheet mabda").Range("savabegh_print").CopySh

Sub gotoramfish()
sheettoshow = "ramfish"
Sheets("ramfish").Protect Password:=""
Call HideAllmysheets
End Sub
Sub HideAllmysheets()
ThisWorkbook.Sheets(sheettoshow).Visible = True
For Each ws In ThisWorkbook.Sheets
If ws.Name <> sheettoshow Then ws.Visible = xlVeryHidden
Next ws
End Sub

Set ra = Cells.Find(What:=Sheets("report").Range("p6"), LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If r

Sub quitSave()
Application.DisplayAlerts = True
answer = MsgBox("ÂíÇãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbYesNo + vbQuestion, "Exit")
If answer = vbYes Then
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
End If
End Sub